home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / MAC / PUT.MAC < prev    next >
Text File  |  1987-08-12  |  258b  |  15 lines
  1. PUT     MACRO DCB?,0
  2.      AIF   /&LABEL$$=/ .GO
  3. &LABEL$$ EQU   *
  4. .GO     AIF   &1=(.REG
  5.      LA    2,&1
  6.      AGO   .AREA
  7. .REG     AIF   &1=(2).AREA
  8.      LR    2,&1
  9. .AREA     AIF   &2=(.REG2
  10.      LA    1,&2
  11.      AGO   .SVC
  12. .REG2     AIF   &2=(1).SVC
  13.      LR    1,&2
  14. .SVC     SVC   6
  15.